home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9002a.d64 / mini-ass demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  4KB  |  188 lines
  1. 30 FORI=1TO56:READI$:NEXT:DL=PEEK(65):DH=PEEK(66):FORI=1TO12:READI$:NEXT:READPZ
  2. 31 Z=2:F=0:D=0:READB$:BL=PEEK(65):BH=PEEK(66):ZL=PEEK(63):ZH=PEEK(64):L$=LEFT$(B$,3):RESTORE
  3. 32 OP$="0":H$=MID$(B$,5,1):L=LEN(B$):FORI=1TO56:READV$:ON(L$=LEFT$(V$,3))+2GOTO33:NEXT:GOTO40
  4. 33 Z$="":POKE65,DL:POKE66,DH:FORI=6TOL:ON-(L<6)GOTO35:Z$=MID$(B$,I,1):H=ASC(Z$)
  5. 34 IFH>47THENIFH<71THENH$=H$+" ":OP$=OP$+Z$:Z$=""
  6. 35 H$=H$+Z$:NEXT:FORI=1TO12:READAF$:ON(H$=AF$)+2GOTO36:NEXT:GOTO40
  7. 36 Z=Z+2:H=ASC(MID$(V$,Z,1)):Z=Z-(H>80):F=F+1-(H>80)*(H-80):ON-(F>I)GOTO 40
  8. 37 ON-(I>F)GOTO36:M$=MID$(V$,Z,2):H=ASC(M$):POKEPZ,(H-65)*16+ASC(RIGHT$(M$,1))-65
  9. 38 PRINTPZ,B$:PZ=PZ+1:FORI=1TOLEN(OP$):H=ASC(MID$(OP$,I,1))-48:D=D*16+H+(H>16)*7:NEXT
  10. 39 G=INT(D/256):POKEPZ,D-G*256:POKEPZ+1,G:PZ=PZ+INT(LEN(OP$)/2):POKE65,BL:POKE66,BH:GOTO31
  11. 40 PRINT" SYNTAX ERROR IN";ZL+ZH*16:END:DATALDAQKJKNKFLNLJLFLBKBS,STARINIFJNJJJFJBIBS
  12. 41 DATALDXQKCKOKGQLOSLGR,STXRIOIGUJGR,LDYQKAKMKELMQLEU,STYRIMIERJEU,INCROOOGPOQPGU
  13. 42 DATADECRMOMGNOQNGU,JSRRCAY,JMPREMXGM,ADCQGJGNGFHNHJHFHBGBS,SBCQOJONOFPNPJPFPBOBS
  14. 43 DATAINXOI\,INYMI\,DEXMK\,DEYII\,BEQQPA[,BNEQNA[,BCSQLA[,BCCQJA[,BMIQDA[,BPLQBA[
  15. 44 DATAANDQCJCNCFDNDJDFDBCBS,ORAQAJANAFBNBJBFBBABS,EORQEJENEFFNFJFFFBEBS,BITRCMCEX
  16. 45 DATACMPQMJMNMFNNNJNFNBMBS,CPXQOAOMOEX,CPYQMAMMMEX,BVSQHA[,BVCQFA[,RTSGA\,RTIEA\
  17. 46 DATATAXKK\,TXAIK\,TAYKI\,TYAJI\,CLCBI\,SECDI\,CLDNI\,SEDPI\,CLIFI\,SEIHI\,CLVLI\
  18. 47 DATAPHAEI\,PLAGI\,PHPAI\,PLPCI\,TXSJK\,TSXLK\,BRKAA\,NOPOK\,ASLRAOAGBOQBGSAKQ
  19. 48 DATALSRREOEGFOQFGSEKQ,ROLRCOCGDOQDGSCKQ,RORRGOGGHOQHGSGKQ,"",#$  ,$    ,"$  "
  20. 49 DATA"$    ,X","$    ,Y","$  ,X","($  ),Y","($  ,X)","$  ,Y",A,($    )
  21. 50 :
  22. 100 DATA 8192
  23. 101 DATA "LDA #$00"
  24. 102 DATA "LDA $0000"
  25. 103 DATA "LDA $00"
  26. 104 DATA "LDA $0000,X"
  27. 105 DATA "LDA $0000,Y"
  28. 106 DATA "LDA $00,X"
  29. 107 DATA "LDA ($00,X)"
  30. 108 DATA "LDA ($00),Y"
  31. 109 DATA "LDX #$00"
  32. 110 DATA "LDX $0000"
  33. 111 DATA "LDX $00"
  34. 112 DATA "LDX $0000,Y"
  35. 113 DATA "LDX $00,Y"
  36. 114 DATA "LDY #$00"
  37. 115 DATA "LDY $0000"
  38. 116 DATA "LDY $00"
  39. 117 DATA "LDY $0000,X"
  40. 118 DATA "LDY $00,X"
  41. 119 :
  42. 120 DATA "STA $0000"
  43. 121 DATA "STA $00"
  44. 122 DATA "STA $0000,X"
  45. 123 DATA "STA $0000,Y"
  46. 124 DATA "STA $00,X"
  47. 125 DATA "STA ($00,X)"
  48. 126 DATA "STA ($00),Y"
  49. 127 DATA "STX $0000"
  50. 128 DATA "STX $00"
  51. 129 DATA "STX $00,Y"
  52. 130 DATA "STY $0000"
  53. 131 DATA "STY $00"
  54. 132 DATA "STY $00,X"
  55. 133 :
  56. 134 DATA "TAX"
  57. 135 DATA "TXA"
  58. 136 DATA "TAY"
  59. 137 DATA "TYA"
  60. 138 DATA "TXS"
  61. 139 DATA "TSX"
  62. 140 :
  63. 141 DATA "ADC #$00"
  64. 142 DATA "ADC $0000"
  65. 143 DATA "ADC $00"
  66. 144 DATA "ADC $0000,X"
  67. 145 DATA "ADC $0000,Y"
  68. 146 DATA "ADC $00,X"
  69. 147 DATA "ADC ($00,X)"
  70. 148 DATA "ADC ($00),Y"
  71. 149 DATA "SBC #$00"
  72. 150 DATA "SBC $0000"
  73. 151 DATA "SBC $00"
  74. 152 DATA "SBC $0000,X"
  75. 153 DATA "SBC $0000,Y"
  76. 154 DATA "SBC $00,X"
  77. 155 DATA "SBC ($00,X)"
  78. 156 DATA "SBC ($00),Y"
  79. 157 :
  80. 158 DATA "AND #$00"
  81. 159 DATA "AND $0000"
  82. 160 DATA "AND $00"
  83. 161 DATA "AND $0000,X"
  84. 162 DATA "AND $0000,Y"
  85. 163 DATA "AND $00,X"
  86. 164 DATA "AND ($00,X)"
  87. 165 DATA "AND ($00),Y"
  88. 166 DATA "ORA #$00"
  89. 167 DATA "ORA $0000"
  90. 168 DATA "ORA $00"
  91. 169 DATA "ORA $0000,X"
  92. 170 DATA "ORA $0000,Y"
  93. 171 DATA "ORA $00,X"
  94. 172 DATA "ORA ($00,X)"
  95. 173 DATA "ORA ($00),Y"
  96. 174 DATA "EOR #$00"
  97. 175 DATA "EOR $0000"
  98. 176 DATA "EOR $00"
  99. 177 DATA "EOR $0000,X"
  100. 178 DATA "EOR $0000,Y"
  101. 179 DATA "EOR $00,X"
  102. 180 DATA "EOR ($00,X)"
  103. 181 DATA "EOR ($00),Y"
  104. 182 :
  105. 183 DATA "INX"
  106. 184 DATA "INY"
  107. 185 DATA "DEX"
  108. 186 DATA "DEY"
  109. 187 DATA "INC $0000"
  110. 188 DATA "INC $00"
  111. 189 DATA "INC $0000,X"
  112. 190 DATA "INC $00,X"
  113. 191 DATA "DEC $0000"
  114. 192 DATA "DEC $00"
  115. 193 DATA "DEC $0000,X"
  116. 194 DATA "DEC $00,X"
  117. 195 :
  118. 196 DATA "ASL A"
  119. 197 DATA "ASL $0000"
  120. 198 DATA "ASL $00"
  121. 199 DATA "ASL $0000,X"
  122. 200 DATA "ASL $00,X"
  123. 201 DATA "LSR A"
  124. 202 DATA "LSR $0000"
  125. 203 DATA "LSR $00"
  126. 204 DATA "LSR $0000,X"
  127. 205 DATA "LSR $00,X"
  128. 206 DATA "ROL A"
  129. 207 DATA "ROL $0000"
  130. 208 DATA "ROL $00"
  131. 209 DATA "ROL $0000,X"
  132. 210 DATA "ROL $00,X"
  133. 211 DATA "ROR A"
  134. 212 DATA "ROR $0000"
  135. 213 DATA "ROR $00"
  136. 214 DATA "ROR $0000,X"
  137. 215 DATA "ROR $00,X"
  138. 216 :
  139. 217 DATA "CMP #$00"
  140. 218 DATA "CMP $0000"
  141. 219 DATA "CMP $00"
  142. 220 DATA "CMP $0000,X"
  143. 221 DATA "CMP $0000,Y"
  144. 222 DATA "CMP $00,X"
  145. 223 DATA "CMP ($00,X)"
  146. 224 DATA "CMP ($00),Y"
  147. 225 DATA "CPX #$00"
  148. 226 DATA "CPX $0000"
  149. 227 DATA "CPX $00"
  150. 228 DATA "CPY #$00"
  151. 229 DATA "CPY $0000"
  152. 230 DATA "CPY $00"
  153. 231 :
  154. 232 DATA "BEQ #$00"
  155. 233 DATA "BNE #$00"
  156. 234 DATA "BCS #$00"
  157. 235 DATA "BCC #$00"
  158. 236 DATA "BMI #$00"
  159. 237 DATA "BPL #$00"
  160. 238 DATA "BVS #$00"
  161. 239 DATA "BVC #$00"
  162. 240 :
  163. 241 DATA "CLC"
  164. 242 DATA "SEC"
  165. 243 DATA "CLD"
  166. 244 DATA "SED"
  167. 245 DATA "CLI"
  168. 246 DATA "SEI"
  169. 247 DATA "CLV"
  170. 248 :
  171. 249 DATA "JMP $0000"
  172. 250 DATA "JMP ($0000)"
  173. 251 :
  174. 252 DATA "JSR $0000"
  175. 253 DATA "RTS"
  176. 254 :
  177. 255 DATA "PHA"
  178. 256 DATA "PLA"
  179. 257 DATA "PHP"
  180. 258 DATA "PLP"
  181. 259 :
  182. 260 DATA "RTI"
  183. 261 DATA "BRK"
  184. 262 :
  185. 263 DATA "BIT $0000"
  186. 264 DATA "BIT $00"
  187. 265 DATA "NOP"
  188.